My meme is of an image of a Rabbids cartoon character looking confused and a man passed out on the floor - the cartoon is how I first felt when attempting to code in R for the first time and I had not idea why it was not running properly, and the man is how I felt after fixing my code and it finally working (my brain was exhausted and I wanted to fall asleep).
library(magick)
textimg1 <- image_blank(width = 891,
height = 100,
color = "#000000") %>%
image_annotate(text = "When you try to code for the first time and it doesn't work",
color ="#FFFFFF",
size = 35,
font = "Impact",
gravity = "center")
rabbit <- image_read("https://a.pinatafarm.com/891x900/8c98f3115d/rayman-raving-rabbid-weird-eye-cartoon.jpg")
together1 <- c(textimg1, rabbit)
stack1 <- image_append(together1, stack = TRUE)
# First part of the meme done, now onto the second part
textimg2 <- image_blank(width = 891,
height = 100,
color = "#000000") %>%
image_annotate(text = "When you finally fix your code after hours of debugging",
color = "#FFFFFF",
size = 35,
font = "Impact",
gravity = "center")
man <- image_read("https://st3.depositphotos.com/1177973/12900/i/950/depositphotos_129002234-stock-photo-tired-drunk-man-after-party.jpg") %>%
image_scale(891)
together2 <- c(textimg2, man)
stack2 <- image_append(together2, stack = TRUE)
# Second part of the meme done, now need to put both together
stackboth <- c(stack1, stack2)
mymeme <- image_append(stackboth, stack = TRUE)
mymeme
image_write(mymeme, "my_meme.png")
My animated GIF is of a cat being measured in sauce packets as it grows up (despite opposition from its haters), and I choose this because I thought it was very cute and funny - the text “He’s Heating Up” refers to producer Charlie Heat’s tag that usually plays before the beat drop and start of a chorus in one of his songs (the explosion is the release of this heat).
library(magick)
cat1 <- image_read("https://preview.redd.it/z38gfulfs3t91.jpg?auto=webp&s=60f99b5d8397a8f4894506a57c1bad952743719d") %>%
image_scale(200) %>%
image_border("#000000", "10x20")
cat2 <- image_read("https://pbs.twimg.com/media/FewNDAaWYAI1bks.png") %>%
image_scale(200) %>%
image_border("#000000", "10x20")
cat3 <- image_read("https://preview.redd.it/important-update-from-small-cat-he-is-now-5-sauce-v0-fyx8ui9np1u91.jpg?width=640&crop=smart&auto=webp&s=7d6599cff182d14c97a481c946c8562d8dd6afe1") %>%
image_scale(200) %>%
image_border("#000000", "10x20")
cat4 <- image_read("https://preview.redd.it/evolution-of-the-2-sauce-long-cat-v0-scl338fxub0a1.jpg?width=640&crop=smart&auto=webp&s=184806c5db697f972474ff830b928c9dbeda301c") %>%
image_scale(200) %>%
image_border("#000000", "10x20")
boom <- image_read("https://abc7amarillo.com/resources/media/69b9b8ad-e24c-485b-b3c9-3ca8f4ecb300-large3x4_nuclearprepare.PNG?1646156274844") %>%
image_scale(200) %>%
image_border("#000000", "10x20")
# Above are all the images used for the frames
frame1 <- cat1 %>%
image_annotate(text = "He's", size = 26, color = "#000000", gravity = "center") %>%
image_annotate(text = "He's", size = 25, color = "#FFFFFF", gravity = "center")
frame2 <- cat2 %>%
image_annotate(text = "Heating", size = 26, color = "#000000", gravity = "center") %>%
image_annotate(text = "Heating", size = 25, color = "#FFFFFF", gravity = "center")
frame3 <- cat3 %>%
image_annotate(text = "Up", size = 26, color = "#000000", gravity = "center") %>%
image_annotate(text = "Up", size = 25, color = "#FFFFFF", gravity = "center")
frame4 <- boom
frame5 <- cat4 %>%
image_blur(15, 5)
frame6 <- cat4 %>%
image_annotate(text = "7 sauce long", size = 26, color = "#000000", gravity = "center") %>%
image_annotate(text = "7 sauce long", size = 25, color = "#FFFFFF", gravity = "center")
frame7 <- image_charcoal(cat4)
# Above are all the frames used
frames <- c(frame1, frame2, frame3, frame4, frame5, frame6, frame7)
animation <- image_animate(frames, fps = 0.5) %>%
image_annotate(text = "Haters said he would never be 7 sauce long", size = 10, color = "#FFFFFF", gravity = "north")
animation
image_write(animation, "my_animation.gif")
@import url('https://fonts.googleapis.com/css2?family=Open+Sans:wght@300&display=swap');
p {
font-weight: bold;
}
body {
font-family: 'Open Sans', sans-serif;
background-color: #EDC5F5;
}